30 FORI=1TO56:READI$:NEXT:DL=PEEK(65):DH=PEEK(66):FORI=1TO12:READI$:NEXT:READPZ
31 Z=2:F=0:D=0:READB$:BL=PEEK(65):BH=PEEK(66):ZL=PEEK(63):ZH=PEEK(64):L$=LEFT$(B$,3):RESTORE
32 OP$="0":H$=MID$(B$,5,1):L=LEN(B$):FORI=1TO56:READV$:ON(L$=LEFT$(V$,3))+2GOTO33:NEXT:GOTO40
33 Z$="":POKE65,DL:POKE66,DH:FORI=6TOL:ON-(L<6)GOTO35:Z$=MID$(B$,I,1):H=ASC(Z$)
34 IFH>47THENIFH<71THENH$=H$+" ":OP$=OP$+Z$:Z$=""
35 H$=H$+Z$:NEXT:FORI=1TO12:READAF$:ON(H$=AF$)+2GOTO36:NEXT:GOTO40
36 Z=Z+2:H=ASC(MID$(V$,Z,1)):Z=Z-(H>80):F=F+1-(H>80)*(H-80):ON-(F>I)GOTO 40
37 ON-(I>F)GOTO36:M$=MID$(V$,Z,2):H=ASC(M$):POKEPZ,(H-65)*16+ASC(RIGHT$(M$,1))-65
38 PRINTPZ,B$:PZ=PZ+1:FORI=1TOLEN(OP$):H=ASC(MID$(OP$,I,1))-48:D=D*16+H+(H>16)*7:NEXT
39 G=INT(D/256):POKEPZ,D-G*256:POKEPZ+1,G:PZ=PZ+INT(LEN(OP$)/2):POKE65,BL:POKE66,BH:GOTO31
40 PRINT" SYNTAX ERROR IN";ZL+ZH*16:END:DATALDAQKJKNKFLNLJLFLBKBS,STARINIFJNJJJFJBIBS
41 DATALDXQKCKOKGQLOSLGR,STXRIOIGUJGR,LDYQKAKMKELMQLEU,STYRIMIERJEU,INCROOOGPOQPGU
42 DATADECRMOMGNOQNGU,JSRRCAY,JMPREMXGM,ADCQGJGNGFHNHJHFHBGBS,SBCQOJONOFPNPJPFPBOBS
43 DATAINXOI\,INYMI\,DEXMK\,DEYII\,BEQQPA[,BNEQNA[,BCSQLA[,BCCQJA[,BMIQDA[,BPLQBA[
44 DATAANDQCJCNCFDNDJDFDBCBS,ORAQAJANAFBNBJBFBBABS,EORQEJENEFFNFJFFFBEBS,BITRCMCEX
45 DATACMPQMJMNMFNNNJNFNBMBS,CPXQOAOMOEX,CPYQMAMMMEX,BVSQHA[,BVCQFA[,RTSGA\,RTIEA\
46 DATATAXKK\,TXAIK\,TAYKI\,TYAJI\,CLCBI\,SECDI\,CLDNI\,SEDPI\,CLIFI\,SEIHI\,CLVLI\
47 DATAPHAEI\,PLAGI\,PHPAI\,PLPCI\,TXSJK\,TSXLK\,BRKAA\,NOPOK\,ASLRAOAGBOQBGSAKQ
48 DATALSRREOEGFOQFGSEKQ,ROLRCOCGDOQDGSCKQ,RORRGOGGHOQHGSGKQ,"",#$  ,$    ,"$  "
49 DATA"$    ,X","$    ,Y","$  ,X","($  ),Y","($  ,X)","$  ,Y",A,($    )